home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD039A.d64 / ping the pingo p (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1013 b   |  36 lines
  1. 0 W=53280:POKEW,0:POKEW+1,0:GOSUB31:PRINT"[147]":FORI=1TO40:PRINT"[195]";:NEXT
  2. 1 FORI=1TO20:PRINT"[144]X[157][157]Z";:NEXT:FORI=1TO40:PRINT"[198]";:NEXT:Z=B-19:X=B+58
  3. 2 M=X:N=Z:GETA$:GOSUB5:B=B+D:P=PEEK(B):IFP<>32THEN15
  4. 3 PRINT""B$" "C$":"P1"  "B$" "D$":"P2:FORI=0TO80STEP40:POKEX+I,160
  5. 4 POKEZ+I,160:NEXT:POKEB,160:C=B:FORI=1TO35:NEXT:POKEC,32:GOTO2
  6. 5 IFA$="Q"THENZ=Z-40:POKEN+80,32
  7. 6 IFA$="A"THENZ=Z+40:POKEN,32
  8. 7 IFA$="O"THENX=X-40:POKEM+80,32
  9. 8 IFA$="L"THENX=X+40:POKEM,32
  10. 9 IFZ<1105THENZ=1105
  11. 10 IFZ+80>1865THENZ=1785
  12. 11 IFX<1142THENX=1142
  13. 12 IFX+80>1902THENX=1822
  14. 13 RETURN
  15. 15 IFP<>67ANDP<>70THEN20
  16. 16 IFD=-39THEND=41:GOTO2
  17. 17 IFD=-41THEND=39:GOTO2
  18. 18 IFD=41THEND=-39:GOTO2
  19. 19 IFD=39THEND=-41:GOTO2
  20. 20 IFP<>160THEN25
  21. 21 IFD=41THEND=39:GOTO2
  22. 22 IFD=-39THEND=-41:GOTO2
  23. 23 IFD=-41THEND=-39:GOTO2
  24. 24 IFD=39THEND=41:GOTO2
  25. 25 IFP=24THENP2=P2+10
  26. 26 IFP=26THENP1=P1+10
  27. 27 IFP1>90THENS$=C$:GOTO30
  28. 28 IFP2>90THENS$=D$:GOTO30
  29. 29 B=K:GOTO2
  30. 30 PRINT"[147]GAME  OVER[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]WINNER IS "B$" "S$:END
  31. 31 B$="PLAYER":C$="ONE":D$="TWO":B=1524:D=-39:K=B
  32. 32 PRINT"[147]   PING - BY PINGO/CIVITAS/DIXN RIAH    ":PRINTB$" "C$;
  33. 33 PRINT": Q[146] UP A[146] DOWN.":PRINTB$" "D$":[160]O[146] UP L[146] DOWN.":PRINT"FIRST TO 100 WINS."
  34. 35 GETZ$:IFZ$=""THEN35
  35. 36 RETURN
  36.